home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 2 / AACD 2.iso / AACD / Programming / NRCOBOL1g / COBFILES / EXAMPLE.COB < prev    next >
Encoding:
Text File  |  1998-03-04  |  2.0 KB  |  67 lines
  1.  
  2.       *ROUTINE TO DISPLAY A MULTIPLICATION GRID.
  3.        IDENTIFICATION DIVISION.
  4.        PROGRAM-ID.  EXAMPLE.
  5.        AUTHOR. C HARRIOTT.
  6.       *
  7.        ENVIRONMENT DIVISION.
  8.        CONFIGURATION SECTION.
  9.        SOURCE-COMPUTER.  AMIGA A1200 WITH DEBUGGING MODE.
  10.       *
  11.        DATA DIVISION.
  12.        WORKING-STORAGE SECTION.
  13.        01  WS-X-SCREEN-DFT    PIC 99 VALUE  10.
  14.        01  WS-Y-SCREEN-DFT    PIC 99 VALUE  05.
  15.        01  WS-XY-PRODUCT      PIC 9(3).
  16.  
  17.        01  WS-COUNTERS.
  18.            05  WS-Y-ROW           PIC 99.
  19.            05  WS-X-COLUMN        PIC 99.
  20.            05  WS-X-POS           PIC 99.
  21.            05  WS-Y-POS           PIC 99.
  22.        01  WS-BUTTON          PIC X(8) VALUE "PRESS ME".
  23.       *
  24.       *
  25.        PROCEDURE DIVISION.
  26.        001-MAIN.
  27.            DISPLAY (1 , 10)
  28.            "Routine to CALCULATE and DISPLAY a MULTIPLICATION TABLE".
  29.            MOVE ZEROS TO WS-COUNTERS.
  30.            PERFORM 002-ROWS
  31.                VARYING WS-Y-ROW FROM 1 BY 1 UNTIL WS-Y-ROW > 10.
  32.            STOP RUN.
  33.       *
  34.       *
  35.        002-ROWS.
  36.            MOVE ZEROS TO WS-X-COLUMN.
  37.            PERFORM 003-COLUMNS
  38.                VARYING WS-X-COLUMN FROM 1 BY 1 UNTIL WS-X-COLUMN > 10.
  39.       *
  40.       *
  41.        003-COLUMNS.
  42.            MOVE ZEROS TO WS-X-POS.
  43.            MULTIPLY WS-X-COLUMN BY 5 GIVING WS-X-POS.
  44.            ADD WS-X-SCREEN-DFT TO WS-X-POS.
  45.       *
  46.            MOVE ZEROS TO WS-Y-POS.
  47.            MOVE WS-Y-ROW TO WS-Y-POS.
  48.            ADD WS-Y-SCREEN-DFT TO WS-Y-POS.
  49.       *
  50.            MULTIPLY WS-Y-ROW BY WS-X-COLUMN
  51.                           GIVING  WS-XY-PRODUCT.
  52.            PERFORM 004-DISPLAY-PRODUCT.
  53.       *
  54.       *
  55.        004-DISPLAY-PRODUCT.
  56.       D    PERFORM 005-DEBUG.
  57.            MOVE WS-Y-POS  TO LIN.
  58.            MOVE WS-X-POS  TO COL.
  59.            DISPLAY (LIN , COL) WS-XY-PRODUCT.
  60.       *
  61.       D005-DEBUG.
  62.       D    DISPLAY (24 1) "Debug optioned:  X-POS = " WS-X-POS
  63.       D      " , Y-POS = " WS-Y-POS.
  64.       D    ACCEPT (24 50) WS-BUTTON FROM AMIGA-BUTTON.
  65.       *****END*******************************************Š
  66.  
  67.